home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Persuasion / Interactive / Interactive.rsrc / TEXT_1162.txt < prev    next >
Encoding:
Text File  |  1988-11-03  |  207 b   |  14 lines
  1. »#
  2. if thechar = backspace then skip 9
  3. if thechar = return then skip 3
  4. if length (cast(a23)) > 17 then skip 4
  5. exit
  6. goto 202
  7. exit
  8. set &Z = 0
  9. goto  195
  10. exit
  11. set &Z = 1
  12. if length (cast(a23)) < 19 then 192
  13. Àá
  14.